home *** CD-ROM | disk | FTP | other *** search
- // Copyright (C) 1997-2002 Alias|Wavefront,
- // a division of Silicon Graphics Limited.
- //
- // The information in this file is provided for the exclusive use of the
- // licensees of Alias|Wavefront. Such users have the right to use, modify,
- // and incorporate this code into other products for purposes authorized
- // by the Alias|Wavefront license agreement, without fee.
- //
- // ALIAS|WAVEFRONT DISCLAIMS ALL WARRANTIES WITH REGARD TO THIS SOFTWARE,
- // INCLUDING ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS, IN NO
- // EVENT SHALL ALIAS|WAVEFRONT BE LIABLE FOR ANY SPECIAL, INDIRECT OR
- // CONSEQUENTIAL DAMAGES OR ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE,
- // DATA OR PROFITS, WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER
- // TORTIOUS ACTION, ARISING OUT OF OR IN CONNECTION WITH THE USE OR
- // PERFORMANCE OF THIS SOFTWARE.
- //
- //
- // Alias|Wavefront Script File
- // MODIFY THIS AT YOUR OWN RISK
- //
- // Creation Date: Jan 30, 1996
- // Author: ms
- //
- // Description:
- // These procs create the controls for a script tool property sheet.
- // See also scriptToolValues.mel for procs that set the state of the
- // property sheet.
- //
- // Input Arguments:
- // None.
- //
- // Return Value:
- // None.
- //
-
- proc scriptToolSetCallbacks( string $parent )
- //
- // Description:
- // Set the callbacks for all of the controls in the dialog.
- // Modifying the context will force scriptToolValues() to be called
- //
- //
- {
- setParent $parent;
-
- checkBoxGrp -e
- -on1 "scriptCtx -e -cumulativeLists true `currentCtx`"
- -of1 "scriptCtx -e -cumulativeLists false `currentCtx`"
- cumulativeListsWidget;
-
- checkBoxGrp -e
- -on1 "scriptCtx -e -expandSelectionList true `currentCtx`"
- -of1 "scriptCtx -e -expandSelectionList false `currentCtx`"
- expandSelectionListWidget;
-
- checkBoxGrp -e
- -on1 "scriptCtx -e -showManipulators true `currentCtx`"
- -of1 "scriptCtx -e -showManipulators false `currentCtx`"
- showManipulatorsWidget;
-
- checkBoxGrp -e
- -on1 "scriptCtx -e -exitUponCompletion true `currentCtx`"
- -of1 "scriptCtx -e -exitUponCompletion false `currentCtx`"
- exitUponCompletionWidget;
-
- checkBoxGrp -e
- -on1 "scriptCtx -e -enableRootSelection true `currentCtx`"
- -of1 "scriptCtx -e -enableRootSelection false `currentCtx`"
- showRootSelectWidget;
-
- textFieldGrp -e
- -cc "scriptCtx -e -title \"#1\" `currentCtx`"
- titleWidget;
-
- textFieldGrp -e
- -cc "scriptCtx -e -finalCommandScript \"#1\" `currentCtx`"
- finalCommandScriptWidget;
- }
-
- global proc scriptToolProperties()
- //
- // Description:
- // This procedure builds the property sheet and assigns callbacks to
- // its controls. The state of the controls are set in scriptToolValues().
- //
- //
- {
- string $parent = `toolPropertyWindow -q -location`;
- setUITemplate -pushTemplate DefaultTemplate;
- setParent $parent;
-
- columnLayout scriptTool;
-
- $parent = `setParent -query`;
- separator -style "none";
-
- textFieldGrp -l "Title" titleWidget;
- textFieldGrp -l "Final Command Script" finalCommandScriptWidget;
-
- checkBoxGrp -ncb 1
- -l1 "Keep Active"
- -v1 on
- cumulativeListsWidget;
- checkBoxGrp -ncb 1
- -l1 "Expand Selection"
- -v1 on
- expandSelectionListWidget;
- checkBoxGrp -ncb 1
- -l1 "Hierarchy Selection"
- -v1 on
- showRootSelectWidget;
- checkBoxGrp -ncb 1
- -l1 "Show Manipulators"
- -v1 on
- showManipulatorsWidget;
- checkBoxGrp -ncb 1 -l1 "Exit Upon Completion" -v1 on
- exitUponCompletionWidget;
-
- setParent ..; // scriptTool
-
- setUITemplate -popTemplate;
- scriptToolSetCallbacks( $parent );
- }
-
-